home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / cmln0885.arc / LETTER3.LTG < prev    next >
Text File  |  1986-02-27  |  640b  |  20 lines
  1. letters listing 3
  2.  
  3.             1         2         3         4         5         6
  4.  
  5. ░  ¿ FIBONACC╔ calc« usinτ MYSEL╞ froφ FORT╚ DIMENSION╙ V┤ no« ▓)
  6. 1
  7. 2  : MYSELF LATEST PFA CFA , ; IMMEDIATE   ( call myself )
  8. 3
  9. 4  : ONACCI                                ( n1 --- n2 )
  10. 5    DUP 1 = IF DROP 0
  11. 6            ELSE DUP 2 = IF DROP 1
  12. 7                         ELSE DUP 1 - MYSELF SWAP 2 - MYSELF +
  13. 8                         THEN
  14. 9            THEN ;
  15. 10
  16. 11  : FIB ONACCI U. ;                      ( n --- )
  17. 12
  18. 13
  19. 14
  20. 15